home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcpdial.arc / ATLANTA.CMD < prev    next >
Encoding:
Text File  |  1987-12-27  |  2.9 KB  |  176 lines
  1. ASSI S7"    "
  2. ASSI S0" "
  3. ASSI S1"ATLANTA, GA  [404]"
  4. BEGIN:
  5. CLEA
  6. LOCA 4,0
  7. MESS"                         ╔══╡ ATLANTA BBS NUMBERS ╞══╗"
  8. MESS"                         ║                           ║"
  9. MESS"                         ║  A - ALTGATE              ║"
  10. MESS"                         ║  B - Arrow Action         ║"
  11. MESS"                         ║  C - Programers Info      ║"
  12. MESS"                         ║  D - Microstuf BBS        ║"
  13. MESS"                         ║  E - Software Link BBS    ║"
  14. MESS"                         ║  F - PC-Exchange BBS      ║"
  15. MESS"                         ║  G -                      ║"
  16. MESS"                         ║  M - Manual Dial          ║"
  17. MESS"                         ║  Q - Return to MAIN menu  ║"
  18. MESS"                         ║                           ║"
  19. MESS"                         ╠═══════════════════════════╣"
  20. MESS"                         ║ ENTER YOUR CHOICE(S):     ║"
  21. MESS"                         ║                           ║"
  22. MESS"                         ╚═══════════════════════════╝"
  23. LOCA 18,27
  24. GET S0
  25. TOP:
  26. FIND S0"A"
  27. IF FOUN
  28. ASSI S6"ATLGATE"
  29. ASSI S8"9281429"
  30. GOSU REDIALER
  31. ELSE
  32. ENDI
  33. FIND S0"B"
  34. IF FOUN
  35. ASSI S6"Arrow Action"
  36. ASSI S8"6220732"
  37. GOSU REDIALER
  38. ELSE
  39. ENDI
  40. FIND S0"C"
  41. IF FOUN
  42. ASSI S6"Programers Info"
  43. ASSI S8"9280033"
  44. GOSU REDIALER
  45. ELSE
  46. ENDI
  47. FIND S0"D"
  48. IF FOUN
  49. ASSI S6"Microstuf_BBS"
  50. ASSI S8"9988048"
  51. GOSU REDIALER
  52. ELSE
  53. ENDI
  54. FIND S0"E"
  55. IF FOUN
  56. ASSI S6"Software Link"
  57. ASSI S8"9986737"
  58. GOSU REDIALER
  59. ELSE
  60. ENDI
  61. FIND S0"F"
  62. IF FOUN
  63. ASSI S6"PC-Exchange BBS"
  64. ASSI S8"9776686"
  65. GOSU REDIALER
  66. ELSE
  67. ENDI
  68. FIND S0"G"
  69. IF FOUN
  70. ASSI S6"True Blue"
  71. ASSI S8"9875235"
  72. GOSU REDIALER
  73. ELSE
  74. ENDI
  75. FIND S0"M"
  76. IF FOUN
  77. CLEA
  78. LOCA 5,20
  79. MESS"NUMBER TO DIAL:"
  80. LOCA 5,36
  81. ASSI S6"MANUAL DIAL"
  82. GET S8
  83. GOSU REDIALER
  84. ELSE
  85. ENDI
  86. FIND S0"Q"
  87. IF FOUN
  88. CLEA
  89. TRAN"!@!"
  90. WAIT"@"
  91. TRAN"D!"
  92. WAIT"@"
  93. CLEA
  94. LOCA 1,0
  95. PAUS 1
  96. EXEC"SELCITY.CMD"
  97. ELSE
  98. ENDI
  99. FIND S7"MORE"
  100. IF FOUN
  101. ASSI S7"    "
  102. GOTO TOP
  103. ELSE
  104. ENDI
  105. MESS"ALL NUMBERS IN DIALING QUEUE FAILED TO ANSWER"
  106. MESS"RETURNING TO MAIN MENU"
  107. ALAR
  108. ASSI S0"Q"
  109. GOTO TOP
  110. REDIALER:
  111. CLEA
  112. ISFI S6
  113. IF NOT SUCC
  114. LOCA 5, 35
  115. MESS"DIALING"
  116. MESS" "
  117. MESS S6
  118. MESS S8
  119. TRAN"I!"
  120. PAUS 1
  121. TRAN"ATZ!"
  122. WAIT"OK"
  123. TRAN"^E!"
  124. WAIT"READY"
  125. TRAN"D"
  126. TRAN S8
  127. TRAN"!"
  128. RGET S9
  129. RGET S9 80 40
  130. RGET S9 40 40
  131. RGET S9 40 40
  132. GOTMESS:
  133. FIND S9"BUSY"
  134. IF FOUN
  135. MESS S6
  136. MESS S8
  137. MESS"BUSY; GOING TO NEXT NUMBER"
  138. MESS"*****************************************************************"
  139. ASSI S7"MORE"
  140. GOTO RTRN
  141. ENDI
  142. FIND S9"ANSWER TONE"
  143. IF FOUN
  144. SET PARI NONE
  145. SET DATA 8
  146. CLEA
  147. MESS"CONNECTED TO"
  148. MESS S8
  149. MESS S6
  150. MESS S1
  151. ALAR
  152. EXIT
  153. ELSE
  154. FIND S9"RINGING"
  155. IF FOUN
  156. RGET S9
  157. FIND S9"RINGING"
  158. IF FOUN
  159. LOG OPEN S6
  160. MESS"NO ANSWER - STILL RINGING"
  161. MESS S8
  162. MESS S6
  163. MESS S1
  164. LOG CLOSE
  165. TRAN"^C^D^C"
  166. MESS"***************************************************************************"
  167. GOTO RTRN
  168. ELSE
  169. GOTO GOTMESS
  170. ENDI
  171. ENDI
  172. ENDI
  173. ENDI
  174. RTRN:
  175. RETURN
  176.